Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGUID = TypeLib.Guid
TheGUID = left(NewGUID, len(NewGUID)-2)
WScript.Echo(TheGUID)
Set TypeLib = Nothing
